﻿Imports Microsoft.Reporting.WebForms
Public Class ReporteHistoriales
    Inherits System.Web.UI.Page

    Private Sub ReporteHistoriales_Init(sender As Object, e As EventArgs) Handles Me.Init
        Me.ReportViewer1.LocalReport.ReportPath = ("reportes\ReporteHistoriales.rdlc")
        Me.ReportViewer1.LocalReport.DataSources.Clear()

        Dim adapter As New DataSetTableAdapters.USP_CONSULTA_X_PC_MANTENIMIENTOTableAdapter
        Dim table As New DataSet.USP_CONSULTA_X_PC_MANTENIMIENTODataTable
        adapter.FillCantidadMantenimiento(table)
        Me.ReportViewer1.LocalReport.DataSources.Add(New ReportDataSource("DataSet1", CType(table, DataTable)))
        Me.ReportViewer1.DataBind()
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        
    End Sub

End Class